perm filename CP.SAI[PIX,HPM] blob sn#419620 filedate 1979-02-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "CP"
C00003 ENDMK
CāŠ—;
BEGIN "CP"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;

   BEGIN
   INTEGER I,J;
   INTEGER ARRAY PIC[0:PIXDIM(9,9,4)];
   MAKPIX(9,9,4,PIC[0]);
   FOR Iā†0 STEP 1 UNTIL 8 DO FOR Jā†0 STEP 1 UNTIL 8 DO
     PUTEL(PIC[0],I,J,(I%3)*3+(J%3)+1);
   PUTPFL(PIC[0],"FOO");
   END;
END;